home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 April: Mac OS SDK / Dev.CD Apr 96 SDK / Dev.CD Apr 96 SDK2.toast / Development Kits (Disc 2) / ScriptX / Draggable ScriptX Folders / utils / widgets / buildmew.sx next >
Encoding:
Text File  |  1995-12-11  |  1.1 KB  |  33 lines  |  [TEXT/ttxt]

  1. --<<<
  2.  
  3. filein theScriptDir name:"widgint.sx"
  4.  
  5. module WidgetBuild
  6.   uses ScriptX, WidgetInterface
  7. end
  8.  
  9. in module WidgetBuild
  10.  
  11. global moduleName := @Widgets
  12. global saveSource := false
  13.  
  14. filein theScriptDir name:"widgbase.sx" module:moduleName debugInfo:saveSource
  15. filein theScriptDir name:"button.sx" module:moduleName debugInfo:saveSource
  16. filein theScriptDir name:"radiobtn.sx" module:moduleName debugInfo:saveSource
  17. filein theScriptDir name:"label.sx" module:moduleName debugInfo:saveSource
  18. filein theScriptDir name:"smallte.sx" module:moduleName debugInfo:saveSource
  19. filein theScriptDir name:"scrlbar.sx" module:moduleName debugInfo:saveSource
  20. filein theScriptDir name:"listbox.sx" module:moduleName debugInfo:saveSource
  21. filein theScriptDir name:"scrltxed.sx" module:moduleName debugInfo:saveSource
  22. filein theScriptDir name:"popupmnu.sx" module:moduleName debugInfo:saveSource
  23.  
  24. (
  25.     local lc := new LibraryContainer dir:theScriptDir path:"widgets.sxl" name:"Widgets"
  26.     append lc (GetModule @WidgetInterface)
  27.     append lc (GetModule moduleName)
  28.     lc.startupAction := ( lc -> for i in lc do load i)
  29.     close lc
  30.     )
  31.  
  32. -->>>
  33.